home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / clipper / mrddem.zip / TITLE.PRG < prev    next >
Text File  |  1994-06-29  |  2KB  |  45 lines
  1. #include "class(y).ch"
  2.  
  3. /*┌─────────┬────────────────────────────────────────────────────────────────┐
  4.   │    Class│Title()                                                         │
  5.   │  Purpose│Title line class                                                │
  6.   │Date-Time│08-13-93      09:46:41pm                                        │
  7.   │Copyright│L&W Computer Services Ltd.                                      │
  8.   │   Author│Ian Day                                                         │
  9.   └─────────┴────────────────────────────────────────────────────────────────┘*/
  10. CREATE CLASS Title
  11.  
  12. EXPORT:
  13.    VAR cSaveLine             TYPE CHARACTER
  14.  
  15.    METHOD Init, Close
  16.  
  17. END CLASS
  18.  
  19. /*┌─────────┬────────────────────────────────────────────────────────────────┐
  20.   │   Method│                                                                │
  21.   │  Purpose│                                                                │
  22.   │Date-Time│08-13-93      09:47:44pm                                        │
  23.   │Copyright│L&W Computer Services Ltd.                                      │
  24.   │   Author│Ian Day                                                         │
  25.   └─────────┴────────────────────────────────────────────────────────────────┘*/
  26. METHOD Init(cText)
  27.  
  28.    ::cSaveLine := SaveScreen(2, 1, 2, MaxCol() - 1)
  29.    @ 2, 1 SAY PadC(cText, MaxCol() - 1) COLOR "B/BG"
  30.  
  31. RETURN (self)
  32.  
  33. /*┌─────────┬────────────────────────────────────────────────────────────────┐
  34.   │   Method│Close() --> NIL                                                 │
  35.   │  Purpose│Restore the line                                                │
  36.   │Date-Time│08-13-93      09:48:51pm                                        │
  37.   │Copyright│L&W Computer Services Ltd.                                      │
  38.   │   Author│Ian Day                                                         │
  39.   └─────────┴────────────────────────────────────────────────────────────────┘*/
  40. METHOD Close
  41.  
  42.    RestScreen(2, 1, 2, MaxCol() - 1, ::cSaveLine)
  43.  
  44. RETURN (self)
  45.